МІНІСТЕРСТВО ОСВІТИ
ГОУ СПО ТАМБОВСЬКИЙ БІЗНЕС-КОЛЕДЖ
ЗВІТ з виробничої практики
Завдання на практику
Виробнича практика студентів за спеціальністю «Програмне забезпечення обчислювальної техніки і автоматизованих систем» є невід'ємною частиною навчально-виховного процесу і має на меті набуття студентами практичних навичок і вмінь виробничої діяльності на підприємствах, в установах і організаціях, на основі застосування теоретичних знань, отриманих бізнес-коледжі . Виробнича практика завершує 2-й курс навчання студентів.
Об'єктами професійної діяльності техніка за спеціальністю «Програмне забезпечення обчислювальної техніки і автоматизованих систем» є інформаційні системи та мережі, а також програмне забезпечення і супровід.
У процесі виробничої (професійної) практики технік інформаційних систем повинен закріпити і поглибити знання, отримані в процесі навчання, здобути уміння та навички роботи з усіх видів професійної діяльності. Має закріпити навички та оволодіти вміннями: адаптації програмного продукту до конкретної системи автоматизованої обробки інформації, роботи в заданому операційному і / або телекомунікаційному оточенні, практичних засобів конкретних технічних засобів інформатизації.
Введення
Протягом усього періоду проходження виробничої практики необхідно:
1. Слідувати вказівкам керівника, виконувати їх з вищим ступенем відповідальності, професіоналізму, придбаного в бізнес - коледжі, сумлінності і самовіддачі;
2. За вказівкою директора школи (чи його заступника або якогось іншого уповноваженого посадової особи) виконувати необхідні дії з електронною обчислювальною технікою, а саме здійснювати організацію роботи з 5 наявними комп'ютерами, їх обслуговування: встановлення на них програмного забезпечення (ПЗ), а саме програм - антивірусів, коригування або повна переустановка самої операційної системи, а також стандартних програм призначених для офісу (по мірі необхідності).
3. Створювати текстові документи, необхідні педагогам і начальству, у текстовому редакторі Microsoft Office Word в середовищі Windows.
4. У своїй діяльності безпосередньо керуватися вимогами та вказівками керівника виробничої практики, «наказ директора» у жодному разі не робити дій, які можуть спричинити за собою небажані наслідки. Крім того, вкрай необхідно погоджувати свої дії з завідувачем комп'ютерним класом (або, при його відсутності вчителем інформатики).
5. Постійно перебувати на робочому місці в зазначений, відведений керівником практики час.
Опис діяльності установи
Товариство з обмеженою відповідальністю «Строй сервіс» засноване в 2006 році є комерційною організацією. На сьогоднішній день основним напрямком діяльності компанії є комплекс послуг з благоустрою на об'єктах будь-якої складності. Так само робить продаж будматеріалів.
Опис індивідуальної роботи
Протягом усієї практики я займалася здебільшого набором офіційних текстових документів, які потрібні організації, в текстовому редактори середовища Windows, під назвою Microsoft Office Word. Також за розпорядженням генерального директора організації та у відповідності до вимог працівників здійснював установку програмного забезпечення на вашому ПК.
На всі комп'ютери мною була встановлена антивірусна програма: Avast Pro 4.7 Rus, яка є досить хорошим сканером середовища Windows. Крім того на комп'ютер був встановлений пакет офісних програм (Microsoft Office 2007 Enterprise Final (Офіційна Русская Версія)), цей набір програм є пізнішою версією, ніж той що був встановлений раніше (Microsoft Office 2003). Перевага першого перед другим складається в модернізованому інтерфейсі, а також, що не менш важливо, у зручності та простоті роботи. Комп'ютер, на який я робив установку офісних програм та засобів був забезпечений операційною системою Microsoft Windows XP Service Pack2, тому установка пройшла успішно і більш пізня версія була замінена більш нової. До кінця практики не спостерігалося збоїв у роботі офісних програм і, на мою думку, вони були встановлені цілком коректно. Також за моєю ініціативою і прохання працівників бухгалтерії, на комп'ютер була встановлена програма «NERO 8.3.2.1RUS», для спрощення процесу запису даних на компакт диск. Так само у зв'язку з частим використанням інтернету, була встановлена програма «Opera» яка полегшила доступ в інтернет.
Додаток 1
Програма використовує два юніта (fil і Unit2) перший - головний, другий використовується тільки при додаванні нового дилера або за його звільнення
Код програми та інтерфейс програми:
unit fil;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, XPMan, ComCtrls, Menus;
type
TForm1 = class (TForm)
BitBtn1: TBitBtn;
StringGrid1: TStringGrid;
Button2: TButton;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
ComboBox3: TComboBox;
CheckBox1: TCheckBox;
Button4: TButton;
Button3: TButton;
MainMenu1: TMainMenu;
menu1: TMenuItem;
newDealer1: TMenuItem;
eXIt1: TMenuItem;
ExitProgramm1: TMenuItem;
Memo1: TMemo;
Button1: TButton;
Help1: TMenuItem;
procedure BitBtn1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure CheckBox1Click (Sender: TObject);
procedure ComboBox3Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure ExitProgramm1Click (Sender: TObject);
procedure newDealer1Click (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormClick (Sender: TObject);
procedure Help1Click (Sender: TObject);
procedure Memo1Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure FormDblClick (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form1: TForm1;
implementation
uses Math, Unit2;
{$ R *. dfm}
Var
z: integer = 1;
procedure TForm1. BitBtn1Click (Sender: TObject);
begin
StringGrid1. Visible: = true;
StringGrid2. Visible: = false;
end;
procedure TForm1. Button2Click (Sender: TObject);
begin
StringGrid1. Visible: = False;
StringGrid2. Visible: = True;
end;
procedure TForm1. FormClick (Sender: TObject);
begin
if StringGrid2. Cells [5,5] = 'fil' then Button4. Visible: = true;
end;
end.
procedure TForm1. Button4Click (Sender: TObject);
var
h, l, p, f, x, a: integer;
begin
p: = 1;
Randomize;
for f: = 1 to 37
do begin
for x: = 1 to 5 do begin
a: = (Random ((49) +1) * 100 + Random (200) * 50);
StringGrid1. Cells [f, x]: = IntToStr (a);
end;
end;
for l: = 1 to 37 do begin
for h: = 1 to 5 do begin
StringGrid2. Cells [l, h]: = IntToStr (p);
inc (p);
if p> z-1 then p: = 1;
end;
end;
end;
procedure TForm1. CheckBox1Click (Sender: TObject);
begin
if CheckBox1. Checked
then StringGrid3. Visible: = true
else StringGrid3. Visible: = false
end;
Procedure TForm1. ComboBox3Click (Sender: TObject);
Begin
StringGrid3. Cells [0, z]: = ComboBox3. Text;
Inc (z);
End;
Procedure TForm1. FormCreate (Sender: TObject);
Var
o, x, i, q: integer;
Begin
Button4. Visible: = false;
Form1. ComboBox3. Items. LoadFromFile ('c: \ file.txt');
i: = 0;
for q: = 1 to 40
do begin
* Озаглавливает String Grid 1, 2, 3.
StringGrid3. Cells [1, q]: = '0 ';
end;
StringGrid3. Cells [1,0]: = 'total';
StringGrid2. Cells [0,0]: = 'Dealers';
StringGrid1. Cells [0,0]: = 'money';
StringGrid2. ColCount: = 38;
StringGrid2. Cells [0,1]: = 'AR';
StringGrid2. Cells [0,2]: = 'BJ';
StringGrid2. Cells [0,3]: = 'OP1';
StringGrid2. Cells [0,4]: = 'OP2';
StringGrid2. Cells [0,5]: = 'OP3';
StringGrid1. ColCount: = 38;
StringGrid1. Cells [0,1]: = 'AR';
StringGrid1. Cells [0,2]: = 'BJ';
StringGrid1. Cells [0,3]: = 'OP1';
StringGrid1. Cells [0,4]: = 'OP2';
StringGrid1. Cells [0,5]: = 'OP3';
for o: = 8 to 20 do begin
for x: = 0 to 2 do begin
Inc (i);
StringGrid1. Cells [i, 0]: = IntToStr (o) + ':' + IntToStr (x * 2) + 0 ";
StringGrid2. Cells [i, 0]: = IntToStr (o) + ':' + IntToStr (x * 2) + 0 ";
end;
end;
end;
procedure TForm1. Button3Click (Sender: TObject);
var
dl: integer;
st, y: string;
fl: TextFile;
sav: TextFile;
q, w, c, s, f, d, r, t, l, p: integer;
begin
w: = 0;
for c: = 1 to 36
do begin
for s: = 1 to 5
do begin
d: = StrToInt (StringGrid2. Cells [c, s]);
f: = StrToInt (StringGrid1. Cells [c, s]);
t: = StrToInt (StringGrid1. Cells [c +1, s]);
r: = tf;
l: = StrToInt (StringGrid3. Cells [1, d]);
p: = r + l;
StringGrid3. Cells [1, d]: = IntToStr (p);
Button3. Enabled: = false;
Button4. Enabled: = false;
end;
end;
for q: = 1 to 40 do begin
w: = w + StrToInt (StringGrid3. Cells [1, q]);
end; \
For dl: = 1 to z do begin
st: = StringGrid3. Cells [0, dl];
y: = StringGrid3. Cells [1, dl];
assignfile (fl, 'c: \ rez \' + st + '. txt');
if not fileexists ('c: \ rez \' + st + '. txt') then
rewrite (fl)
else append (fl);
writeln (fl, y);
closefile (fl);
end;
assignfile (sav, 'c: \ rez \. txt');
if not fileexists ('c: \ rez \. txt') then
rewrite (sav)
else append (sav);
writeln (sav, IntToStr (w));
closefile (sav);
ShowMessage ('Результат дня:' + IntToStr (w));
end;
procedure TForm1. ExitProgramm1Click (Sender: TObject);
begin
ShowMessage ('Good Luck !!!');
Hide;
Form1. Close;
Form2. Close;
end;
procedure TForm1.newDealer1Click (Sender: TObject);
begin
Form1. Visible: = False;
form2. Visible: = true;
Form2. ComboBox1. Items. LoadFromFile ('c: \ file.txt');
end;
procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);
begin
ShowMessage ('Good Luck !!!');
form1. Hide;
end;
procedure TForm1. Memo1Click (Sender: TObject);
begin
Button1. Visible: = true;
end;
procedure TForm1. Button1Click (Sender: TObject);
begin
Memo1. Visible: = false;
Button1. Visible: = false;
end;
procedure TForm1. FormDblClick (Sender: TObject);
begin
Button3. Visible: = false;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, CheckLst;
type
TForm2 = class (TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
ComboBox1: TComboBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click (Sender: TObject);
procedure FormHide (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure Button3Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form2: TForm2;
implementation
uses fil, Math;
{$ R *. dfm}
procedure TForm2. Button2Click (Sender: TObject);
var
q: string;
w: TextFile;
begin
q: = Edit1. Text + '' + Edit2. Text;
Form2. ComboBox1. Items. Add (q);
Form2. Close;
Form1. ComboBox3. Items. Add (q);
AssignFile (w, 'c: \ file.txt');
If not FileExists ('c: \ file.txt')
Then Rewrite (w)
else Append (w);
Writeln (w, Edit1. Text + '' + Edit2. Text);
CloseFile (w);
end;
procedure TForm2. FormHide (Sender: TObject);
begin
Form1. Visible: = true;
end;
procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);
begin
Form1. Visible: = true;
end;
procedure TForm2. Button3Click (Sender: TObject);
begin
Hide;
end;
procedure TForm2. Button1Click (Sender: TObject);
begin
ComboBox1. Items. Delete (ComboBox1. ItemIndex);
ComboBox1. Items. SaveToFile ('c: \ file.txt');
form1. ComboBox3. Items. LoadFromFile ('c: \ file.txt');
ComboBox1. Items. LoadFromFile ('c: \ file.txt');
hide;
end;
end.
ГОУ СПО ТАМБОВСЬКИЙ БІЗНЕС-КОЛЕДЖ
ЗВІТ з виробничої практики
Завдання на практику
Виробнича практика студентів за спеціальністю «Програмне забезпечення обчислювальної техніки і автоматизованих систем» є невід'ємною частиною навчально-виховного процесу і має на меті набуття студентами практичних навичок і вмінь виробничої діяльності на підприємствах, в установах і організаціях, на основі застосування теоретичних знань, отриманих бізнес-коледжі . Виробнича практика завершує 2-й курс навчання студентів.
Об'єктами професійної діяльності техніка за спеціальністю «Програмне забезпечення обчислювальної техніки і автоматизованих систем» є інформаційні системи та мережі, а також програмне забезпечення і супровід.
У процесі виробничої (професійної) практики технік інформаційних систем повинен закріпити і поглибити знання, отримані в процесі навчання, здобути уміння та навички роботи з усіх видів професійної діяльності. Має закріпити навички та оволодіти вміннями: адаптації програмного продукту до конкретної системи автоматизованої обробки інформації, роботи в заданому операційному і / або телекомунікаційному оточенні, практичних засобів конкретних технічних засобів інформатизації.
Введення
Протягом усього періоду проходження виробничої практики необхідно:
1. Слідувати вказівкам керівника, виконувати їх з вищим ступенем відповідальності, професіоналізму, придбаного в бізнес - коледжі, сумлінності і самовіддачі;
2. За вказівкою директора школи (чи його заступника або якогось іншого уповноваженого посадової особи) виконувати необхідні дії з електронною обчислювальною технікою, а саме здійснювати організацію роботи з 5 наявними комп'ютерами, їх обслуговування: встановлення на них програмного забезпечення (ПЗ), а саме програм - антивірусів, коригування або повна переустановка самої операційної системи, а також стандартних програм призначених для офісу (по мірі необхідності).
3. Створювати текстові документи, необхідні педагогам і начальству, у текстовому редакторі Microsoft Office Word в середовищі Windows.
4. У своїй діяльності безпосередньо керуватися вимогами та вказівками керівника виробничої практики, «наказ директора» у жодному разі не робити дій, які можуть спричинити за собою небажані наслідки. Крім того, вкрай необхідно погоджувати свої дії з завідувачем комп'ютерним класом (або, при його відсутності вчителем інформатики).
5. Постійно перебувати на робочому місці в зазначений, відведений керівником практики час.
Опис діяльності установи
Товариство з обмеженою відповідальністю «Строй сервіс» засноване в 2006 році є комерційною організацією. На сьогоднішній день основним напрямком діяльності компанії є комплекс послуг з благоустрою на об'єктах будь-якої складності. Так само робить продаж будматеріалів.
Опис індивідуальної роботи
Протягом усієї практики я займалася здебільшого набором офіційних текстових документів, які потрібні організації, в текстовому редактори середовища Windows, під назвою Microsoft Office Word. Також за розпорядженням генерального директора організації та у відповідності до вимог працівників здійснював установку програмного забезпечення на вашому ПК.
На всі комп'ютери мною була встановлена антивірусна програма: Avast Pro 4.7 Rus, яка є досить хорошим сканером середовища Windows. Крім того на комп'ютер був встановлений пакет офісних програм (Microsoft Office 2007 Enterprise Final (Офіційна Русская Версія)), цей набір програм є пізнішою версією, ніж той що був встановлений раніше (Microsoft Office 2003). Перевага першого перед другим складається в модернізованому інтерфейсі, а також, що не менш важливо, у зручності та простоті роботи. Комп'ютер, на який я робив установку офісних програм та засобів був забезпечений операційною системою Microsoft Windows XP Service Pack2, тому установка пройшла успішно і більш пізня версія була замінена більш нової. До кінця практики не спостерігалося збоїв у роботі офісних програм і, на мою думку, вони були встановлені цілком коректно. Також за моєю ініціативою і прохання працівників бухгалтерії, на комп'ютер була встановлена програма «NERO 8.3.2.1RUS», для спрощення процесу запису даних на компакт диск. Так само у зв'язку з частим використанням інтернету, була встановлена програма «Opera» яка полегшила доступ в інтернет.
Додаток 1
Програма використовує два юніта (fil і Unit2) перший - головний, другий використовується тільки при додаванні нового дилера або за його звільнення
Код програми та інтерфейс програми:
unit fil;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, XPMan, ComCtrls, Menus;
type
TForm1 = class (TForm)
BitBtn1: TBitBtn;
StringGrid1: TStringGrid;
Button2: TButton;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
ComboBox3: TComboBox;
CheckBox1: TCheckBox;
Button4: TButton;
Button3: TButton;
MainMenu1: TMainMenu;
menu1: TMenuItem;
newDealer1: TMenuItem;
eXIt1: TMenuItem;
ExitProgramm1: TMenuItem;
Memo1: TMemo;
Button1: TButton;
Help1: TMenuItem;
procedure BitBtn1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure CheckBox1Click (Sender: TObject);
procedure ComboBox3Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure ExitProgramm1Click (Sender: TObject);
procedure newDealer1Click (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormClick (Sender: TObject);
procedure Help1Click (Sender: TObject);
procedure Memo1Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure FormDblClick (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form1: TForm1;
implementation
uses Math, Unit2;
{$ R *. dfm}
Var
z: integer = 1;
procedure TForm1. BitBtn1Click (Sender: TObject);
begin
StringGrid1. Visible: = true;
StringGrid2. Visible: = false;
end;
procedure TForm1. Button2Click (Sender: TObject);
begin
StringGrid1. Visible: = False;
StringGrid2. Visible: = True;
end;
procedure TForm1. FormClick (Sender: TObject);
begin
if StringGrid2. Cells [5,5] = 'fil' then Button4. Visible: = true;
end;
end.
procedure TForm1. Button4Click (Sender: TObject);
var
h, l, p, f, x, a: integer;
begin
p: = 1;
Randomize;
for f: = 1 to 37
do begin
for x: = 1 to 5 do begin
a: = (Random ((49) +1) * 100 + Random (200) * 50);
StringGrid1. Cells [f, x]: = IntToStr (a);
end;
end;
for l: = 1 to 37 do begin
for h: = 1 to 5 do begin
StringGrid2. Cells [l, h]: = IntToStr (p);
inc (p);
if p> z-1 then p: = 1;
end;
end;
end;
procedure TForm1. CheckBox1Click (Sender: TObject);
begin
if CheckBox1. Checked
then StringGrid3. Visible: = true
else StringGrid3. Visible: = false
end;
Procedure TForm1. ComboBox3Click (Sender: TObject);
Begin
StringGrid3. Cells [0, z]: = ComboBox3. Text;
Inc (z);
End;
Procedure TForm1. FormCreate (Sender: TObject);
Var
o, x, i, q: integer;
Begin
Button4. Visible: = false;
Form1. ComboBox3. Items. LoadFromFile ('c: \ file.txt');
i: = 0;
for q: = 1 to 40
do begin
* Озаглавливает String Grid 1, 2, 3.
StringGrid3. Cells [1, q]: = '0 ';
end;
StringGrid3. Cells [1,0]: = 'total';
StringGrid2. Cells [0,0]: = 'Dealers';
StringGrid1. Cells [0,0]: = 'money';
StringGrid2. ColCount: = 38;
StringGrid2. Cells [0,1]: = 'AR';
StringGrid2. Cells [0,2]: = 'BJ';
StringGrid2. Cells [0,3]: = 'OP1';
StringGrid2. Cells [0,4]: = 'OP2';
StringGrid2. Cells [0,5]: = 'OP3';
StringGrid1. ColCount: = 38;
StringGrid1. Cells [0,1]: = 'AR';
StringGrid1. Cells [0,2]: = 'BJ';
StringGrid1. Cells [0,3]: = 'OP1';
StringGrid1. Cells [0,4]: = 'OP2';
StringGrid1. Cells [0,5]: = 'OP3';
for o: = 8 to 20 do begin
for x: = 0 to 2 do begin
Inc (i);
StringGrid1. Cells [i, 0]: = IntToStr (o) + ':' + IntToStr (x * 2) + 0 ";
StringGrid2. Cells [i, 0]: = IntToStr (o) + ':' + IntToStr (x * 2) + 0 ";
end;
end;
end;
procedure TForm1. Button3Click (Sender: TObject);
var
dl: integer;
st, y: string;
fl: TextFile;
sav: TextFile;
q, w, c, s, f, d, r, t, l, p: integer;
begin
w: = 0;
for c: = 1 to 36
do begin
for s: = 1 to 5
do begin
d: = StrToInt (StringGrid2. Cells [c, s]);
f: = StrToInt (StringGrid1. Cells [c, s]);
t: = StrToInt (StringGrid1. Cells [c +1, s]);
r: = tf;
l: = StrToInt (StringGrid3. Cells [1, d]);
p: = r + l;
StringGrid3. Cells [1, d]: = IntToStr (p);
Button3. Enabled: = false;
Button4. Enabled: = false;
end;
end;
for q: = 1 to 40 do begin
w: = w + StrToInt (StringGrid3. Cells [1, q]);
end; \
For dl: = 1 to z do begin
st: = StringGrid3. Cells [0, dl];
y: = StringGrid3. Cells [1, dl];
assignfile (fl, 'c: \ rez \' + st + '. txt');
if not fileexists ('c: \ rez \' + st + '. txt') then
rewrite (fl)
else append (fl);
writeln (fl, y);
closefile (fl);
end;
assignfile (sav, 'c: \ rez \. txt');
if not fileexists ('c: \ rez \. txt') then
rewrite (sav)
else append (sav);
writeln (sav, IntToStr (w));
closefile (sav);
ShowMessage ('Результат дня:' + IntToStr (w));
end;
procedure TForm1. ExitProgramm1Click (Sender: TObject);
begin
ShowMessage ('Good Luck !!!');
Hide;
Form1. Close;
Form2. Close;
end;
procedure TForm1.newDealer1Click (Sender: TObject);
begin
Form1. Visible: = False;
form2. Visible: = true;
Form2. ComboBox1. Items. LoadFromFile ('c: \ file.txt');
end;
procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);
begin
ShowMessage ('Good Luck !!!');
form1. Hide;
end;
procedure TForm1. Memo1Click (Sender: TObject);
begin
Button1. Visible: = true;
end;
procedure TForm1. Button1Click (Sender: TObject);
begin
Memo1. Visible: = false;
Button1. Visible: = false;
end;
procedure TForm1. FormDblClick (Sender: TObject);
begin
Button3. Visible: = false;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, CheckLst;
type
TForm2 = class (TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
ComboBox1: TComboBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click (Sender: TObject);
procedure FormHide (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure Button3Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form2: TForm2;
implementation
uses fil, Math;
{$ R *. dfm}
procedure TForm2. Button2Click (Sender: TObject);
var
q: string;
w: TextFile;
begin
q: = Edit1. Text + '' + Edit2. Text;
Form2. ComboBox1. Items. Add (q);
Form2. Close;
Form1. ComboBox3. Items. Add (q);
AssignFile (w, 'c: \ file.txt');
If not FileExists ('c: \ file.txt')
Then Rewrite (w)
else Append (w);
Writeln (w, Edit1. Text + '' + Edit2. Text);
CloseFile (w);
end;
procedure TForm2. FormHide (Sender: TObject);
begin
Form1. Visible: = true;
end;
procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);
begin
Form1. Visible: = true;
end;
procedure TForm2. Button3Click (Sender: TObject);
begin
Hide;
end;
procedure TForm2. Button1Click (Sender: TObject);
begin
ComboBox1. Items. Delete (ComboBox1. ItemIndex);
ComboBox1. Items. SaveToFile ('c: \ file.txt');
form1. ComboBox3. Items. LoadFromFile ('c: \ file.txt');
ComboBox1. Items. LoadFromFile ('c: \ file.txt');
hide;
end;
end.